home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs08.d81
/
ultrav6.sda
/
ULTRA V6.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
12KB
|
229 lines
1 MD=11761:SP=12937:GP=12999:OC=13069:CC=13072:CR=13305:WW=13426:RP=13459
2 SO=13898:EZ=13987:ER=14169
3 S=1:A=0:REM SET SOUND AND ASCII CONVERT DEFAULTS 1=ON - 0=OFF
4 DN=08:REM SET DEVICE NUMBER 08 TO 11
5 POKE253,DN:POKE53280,.:POKE53281,.:POKE788,52:DIMA$(112):PRINTCHR$(142):SYSER
6 A$="":PRINT"[144][147]"
7 PRINT A$"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
8 [153] A$"(null) ULTRA SEQ-PRINT (null)
9 PRINT A$"[221] VERSION 6.0 [221]
10 [153]A$"(null) R.W. (BOB K7) KOBER (null)
11 PRINTA$"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
12 [151]787,60:[151]2,7:[158]OC:[141]14:[158]CC:[151]787,30
13 [145][171]([194](2025)[178]7)[137]16:[137]25
14 [129]K[178]1[164]2000:[130]:[142]
15 M[178][195](A$):[129]I[178]1[164]M[173]2:[153]"":[129]J[178]1[164]K:[153]"";:[130]:[153][166]20[171]I)[200](A$,I)[201](A$,I):[130]:[142]
16 [129]I[178]1[164]1000:[130]:[129]I[178]1[164]8:[158]59626:[130]:[151]2025,2:K[178]6
17 A$[178]"DEFTHESE M/L ROUTINES ARE USED ":[141]15:K[178]7
18 A$[178]"LISTSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$ ":[141]211:[141]15:[141]204:K[178]9
19 A$[178]"OPENREAD/PRINT/SCROLL":[141]211:[141]15:[141]204:K[178]11:A$[178]"PRINTMI'S DIRECTORY":[141]211
20 [141]15:[141]204:K[178]13:A$[178]"CLRIT'S CURTAINS":[141]211:[141]15:[141]204:K[178]15
21 A$[178]"FOR2-COL. READ":[141]211:[141]15:[141]204:K[178]17:A$[178]"CONTSNAP-SHOT":[141]211:[141]15:[141]204
22 K[178]19:A$[178]"SYSEZDIR":[141]211:[141]15:[141]204:K[178]23:A$[178]"POKEANY KEY TO STARTON":[141]15
23 [151]198,.:[146]198,1:[151]198,0:[151]150,160:[158]SP:[137]25:[151]150,160:[158]GP:[151]198,.:[146]198,1
24 [151]198,.
25 [151]53280,.:[151]53281,.
26 [158]CC:[151]53272,21:[153]"LOAD"[163]8)"STOP(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
27 [153][163]8)"(null) MAIN MENU (null)":[153][163]8)"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
28 [129]I[178]1[164]300:[130]:[151]2,5:[151]878,20:[158]OC
29 [139]BOB[167][151]150,168:[158]GP:[137]48
30 [153][163]43)"USE EMBEDDED <CR> IGNORE"
31 [153][163]2)"DEFTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
32 [153][163]3)"SYSSTEP (null)WAITDEF SYSFORSTEP (null)LISTWAIT"
33 [153][163]3)"SYS F1 WAITDEF SEND OUTPUT TO SCREEN FOR F2 WAIT"
34 [153][163]3)"SYS(null) WAITSTEPDEF SYS FOR(null) WAITSTEP"
35 [153][163]42)"CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
36 [153][163]3)"VERIFYSTEP (null)WAIT CLRSTEP (null)"
37 [153][163]3)"VERIFY F3 WAIT CONT40 COLUMNS TO PRINTER CLR F4 WAIT"
38 [153][163]3)"VERIFY(null) WAITSTEP CLR(null) WAITSTEP"
39 [153][163]42)"PRINTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
40 [153][163]3)"PRINT#STEP (null)WAIT DEFSTEP (null)"
41 [153][163]3)"PRINT# F5 WAIT PRINT 80 COLUMNS TO PRINTER DEF F6 WAIT"
42 [153][163]3)"PRINT#(null) WAITSTEP DEF(null) WAITSTEP"
43 [153][163]42)"CLRTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
44 [153][163]3)"STEP (null)WAIT STEP (null)"
45 [153][163]3)" F7 WAITCLR DISK HOUSEKEEPING FORQUIT F8 WAIT"
46 [153][163]3)"(null) WAITSTEP (null) WAITSTEP"
47 [139]BO[178]0[167]BOB[178]1:[151]150,168:[158]SP
48 [151]198,.:[160]15:[159]15,DN,15:[137]206
49 [161]A$:[145][171](A$[178]"D")[137]225
50 [161]A$:[145][171](A$[178]"D")[137]225
51 [145][171](A$[178]"A")[137]105:[145][171](A$[178]"S")[137]205:[139]A$[179]"INPUT"[176]A$[177][199](141)[167]50
52 F$[178][201]([196]([198](A$)[171]132),1):[145]([198](A$)[171]132)[137]53,55,57,126,54,56,58,122,203:[137]50
53 [141]78:[141]59:[137]73
54 F$[178]"2":[137]53
55 F$[178]"3":[151]600,0:[141]79:[141]59:[145]COL[137]72,175
56 F$[178]"4":[151]600,1:[141]79:[141]59:[145]COL[137]72,175
57 F$[178]"5":[141]80:[141]59:[137]72
58 F$[178]"6":[141]80:[141]59:[137]72
59 [153]"":[151]214,X[171]2:[153]:[153]"PRINT# ($=DIRECTORY M=MENU)ONON":[151]19,32
60 [133]"SYS ENTER SEQ FILENAME PRINT$CMD";FF$:[139]FF$[178]"M"[167]29
61 [139]FF$[179][177]"$"[175](F$[178]"5"[176]F$[178]"6")[167][141]216
62 [139]FF$[179][177]"$"[167][158]CC:X1[178]34:[142]
63 [160]15:[159]15,DN,15,"I":[139]ST[178][171]128[167]E$[178]"DEVICE NOT PRESENT":[141]120:[137]26
64 [139]FF$[178]"$"[167][132]15,E,E$:[139]E[167][153]"LOAD":[141]120
65 [139]E[167]26
66 [158]CC:[153][199](142):[158]MD:[153]:[160]15:[159]15,DN,15
67 Y[178][194](598)[178]34:[139][168]Y[175](F$[178]"5"[176]F$[178]"6")[167][141]216
68 [158]CC:[139]Y[167]26
69 X1[178]0:FF$[178]""
70 FF[178][194](580[170]X1):[139]FF[178]34[167][142]
71 FF$[178]FF$[170][199](FF):X1[178]X1[170]1:[137]70
72 [159]4,4,7:[141]114:[139]QQ[167]26
73 [159]2,DN,2,FF$:[141]119:[145][171](E[179][177]0)[137]26:[141]88
74 [160]2:[160]4:[158]65511:[159]15,DN,15:X1[178]0:[141]85
75 [161]A$:[139]A$[178]"READ"[167]26
76 [151]214,23:[153]:[153]" DEF (null)RESS F5 FOR THE (null)ENU WAIT ON"
77 [161]A$:[145][171](A$[179][177][199](135))[137]77:[137]26
78 [129]X[178]6[164]8:[151]781,X:[158]59903:[130]:[142]
79 [129]X[178]11[164]13:[151]781,X:[158]59903:[130]:[141]82:[142]
80 [129]X[178]16[164]18:[151]781,X:[158]59903:[130]:[142]
81 [129]X[178]21[164]23:[151]781,X:[158]59903:[130]:[151]214,21:[153]:[151]19,32:[142]
82 [151]214,11:[153]:[153][163]6)"1WAIT OR CONT2WAIT COLUMNS?"
83 [161]COL$:[139]COL$[179]"1"[176]COL$[177]"2"[167]83
84 COL[178][197](COL$):[142]
85 [145][171](S[178]0)[137]210:[129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,15:[151]54277,8:[151]54278,255
86 [151]54276,23:[129]Y[178]1[164]3:F2[178]8:[151]54273,2:[129]X[178]1[164]5:[151]54287,F2:F2[178]F2[172]1.4:[130]:[130]:[129]W[178]1[164]8
87 [151]54287,F2:F2[178]F2[172]1.07:[130]:[151]54278,15:[142]
88 RP$[178]"(null)(null)RIGHT$(null)(null)VAL(null)":[139]F$[178]"1"[176]F$[178]"2"[167]RP$[178]"(null)VALATNSTR$VAL(null) "
89 [158]CC:[153]"LOAD"[199](14):[153][163]2)"STOP***********************************"
90 [153][163]2)"* ASC"F$" (null)(null)(null)(null)ATNCLOSE(null)VAL(null)-ASCRIGHT$(null)VALCLOSE"RP$" *"
91 [153][163]2)"***********************************":[151]214,23:[153]
92 M1$[178]"LEFT$OLD SHIFT TO PAUSE - ":M2$[178]"(null)RESS F6 TO ABORTONON"
93 [139]F$[178]"1"[176]F$[178]"2"[167]M1$[178]"LEFT$OLD SHIFT TO SCROLL -":M2$[178]" LEFT$IT F5 TO ABORT ONON"
94 [153]M1$M2$:[129]I[178]1[164]300:[130]:[151]2,12:[151]787,20
95 [158]OC:[151]214,23:[153]:[153]"DEF"M1$"SYS"M2$""
96 [145][197](F$)[137]97,98,99,100,101,102
97 [158]RP,40,0,0,0,0:X1[178]0:[142]
98 [158]RP,39,1,0,0,0:X1[178]0:[142]
99 [141]103:[158]RP,40,0,1,0,0:X1[178]0:[142]
100 [141]103:[158]RP,39,1,1,0,0:X1[178]0:[142]
101 [141]103:[158]RP,80[171]R[171]M,0,1,M,F:XI[178]0:[142]
102 [141]103:[158]RP,79[171]R[171]M,1,1,M,0:XI[178]0:[142]
103 [139]F[167][142]
104 [129]I[178]1[164]5:[152]4:[130]:[142]
105 A[178]1[171]A:[151]820,A:[137]208
106 [145][171](S[178]0)[137]14:[129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,9:[151]54277,8:[151]54278,252
107 [151]54276,21:[151]54287,40:[129]Z[178]1[164]T:[129]F1[178]255[164]0[169][171]6:[151]54273,F1:[130]F1:[129]F1[178]0[164]255[169]50
108 [151]54273,F1:[130]F1:[130]Z:[151]54296,15:[151]54276,20:[129]Z[178]1[164]2500:[130]
109 [151]54277,128:[151]54278,250:[142]
110 [145][171](S[178]0)[137]14:[129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,15:[151]54277,8:[151]54278,255
111 [151]54276,23:[129]Z[178]1[164]1:F1[178]10:[129]Y[178]1[164]6:F2[178]30:[151]54273,F1:[129]X[178]1[164]3:[151]54287,F2
112 F2[178]F2[173]1.2:[130]X:F1[178]F1[172]1.5:[130]Y:[129]W[178]1[164]30:[151]54273,F1:[151]54287,5:[129]V[178]1[164]5:[130]V
113 F1[178]F1[173]1.5:[130]W:[130]Z:[151]54278,15:[142]
114 [160]4:[139]ST[178]0[167][159]4,4,7:QQ[178]0:[142]
115 [153]"DEF THE PRINTER IS NOT ON LINE"
116 [153]" TURN IT ON, AND PRESS ANY KEY"
117 [153]" PRESS F5 FOR THE MENU":[141]110:[146]198,1:[161]A$:[139]A$[178]"READ"[167]QQ[178]1:[142]
118 [159]4,4,7:[137]114
119 [132]15,E,E$:[139]E[178]0[167][142]
120 [153]"LOAD DISK ERROR ENCOUNTERED":[153][163]20[171][195](E$)[173]2)E$:[141]110
121 [153]" ANY KEY TO CONTINUE":[146]198,1:[160]2:[160]4:[142]
122 K[178]21:A$[178]" SYS ARE YOU SURE? ":[141]15:[146]198,1:[161]A$:[145][171](A$[178]"Y")[137]124
123 [153]"ONONON":[137]29
124 [153]"DEF";:[153][163]8)" USE ULTRA AGAIN, SOON ":[151]198,.
125 T[178]3:[141]106:[158]65126
126 FF[178]0:[153]"LIST":[151]214,8:[153]:[153][163]6)"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
127 [153][163]6)"(null) (null)":[153][163]6)"(null) DISK HOUSE KEEPING MENU (null)"
128 [153][163]6)"(null) USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR (null)":[153][163]6)"(null) (null)"
129 [153][163]6)"(null) 1. SCRATCH A FILE (null)":[153][163]6)"(null) 2. RE-NAME A FILE (null)"
130 [153][163]6)"(null) 3. FORMAT (NEW) A DISK (null)":[153][163]6)"(null) 4. VIEW DIRECTORY (null)"
131 [153][163]6)"(null) 5. RETURN TO MAIN MENU (null)":[153][163]6)"(null) (null)"
132 [153][163]6)"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
133 [151]198,.:[146]198,1:[161]A$:[145][171](A$[178]"READ")[137]29:[139]A$[179]"1"[176]A$[177]"5"[167]133
134 K[178][197](A$):[145]K[137]136,155,165,213,29
135 [151]512,32:[142]
136 [153]"LOADFOR":[151]53280,.:[151]53281,.
137 [153][163]40)" ";
138 [153]" THIS ROUTINE WILL SCRATCH A FILE ";
139 [153]" "
140 [153][163]42)"ENTER 'M' TO RETURN TO THE MENU."
141 [153][163]42)"ENTER '$' TO LIST THE FILE DIRECTORY."
142 [153]"SYS----------------------------------------";:[139]FF[178]34[167]145
143 [151]19,32:[133]"LIST ENTER FILENAME DEF$CMD";FF$:[151]19,.:[153]:[139]FF$[178]"$"[167][141]63:[137]136
144 [139]FF$[178]"M"[167]26
145 B$[178]"LISTSCRATCH SEQ FILE DEF"[170][199](34)[170]FF$[170][199](34):FF[178]0:[153]""[163]21[171][195](B$)[173]2)B$
146 [153][163]90)"SYSARE YOU SURE?? (Y/N)"
147 [161]K$:[139]K$[178]""[167]147
148 [139]K$[179][177]"Y"[167]FF$[178]"":[137]136
149 B$[178]" SCRATCHING "[170]FF$[170]" ":[153][163]20[171][195](B$)[173]2)B$:[152]15,"S0:"FF$
150 [132]15,ER,ER$,T,B:[139]K[178]2[176]K[178]3[167][142]
151 G9$[178][200](ER$,4)[170][201](ER$,10):E9$[178]" "[170]FF$[170]" WAIT "[170]G9$
152 [139]T[178].[167][153][163]48)"**** FILE NOT FOUND ****":[141]110:[137]136
153 [139]T[178].[167][129]I[178]1[164]1500:[130]:[137]136
154 [153][163]60[171][195](E9$)[173]2)E9$:[141]85:[129]I[178]1[164]1000:[130]:[137]26
155 [129]X[178]20[164]23:[151]781,X:[158]59903:[130]
156 [153]"":[151]214,20:[153]:[153][163]9)"OLD NAME = ";
157 [139]FF[178]34[167]FF[178]0:[153]""FF$;:PN$[178]FF$:[151]783,.:[137]160
158 [151]19,32:[133]"$CMD";PN$:[151]19,.:[153]:[139]PN$[178]"4"[167]29
159 [139]PN$[178]"$"[167]FF$[178]PN$:[151]150,96:[158]SP:[141]63:[151]150,96:[158]GP:[137]156
160 [151]214,21:[153]:[153][163]9)"NEW NAME = ";:[151]19,32:[133]" CMD";NN$:[151]19,.:[151]781,21:[158]59903
161 [151]214,21:[153]:[139]NN$[178]"4"[167]29
162 CN$[178]" "[170]PN$[170]" WAIT IS "[170]NN$[170]" WAIT":[139][195](CN$)[179]33[167]CN$[178]CN$[170]" "
163 [153]"SYS"[163]22[171][195](CN$)[173]2)CN$"ONON":[152]15,"R0:"[170]NN$[170]"="[170]PN$:[141]119:[139]E[167]26
164 [141]85:[137]26
165 [153][163]2)"SYS ---WARNING!!!--- "
166 [153]" ALL DATA ON THE DISK TO BE FORMATTED"
167 [153]" WILL BE DESTROYED - OK TO CONTINUE?":[151]198,.:[146]198,1:[161]A$:[151]198,.
168 [139]A$[179][177]"Y"[167]29
169 [141]81:[133]"CONT ENTER ID:SYS RK CMDCMDCMDCMDCMD";ID$
170 [139][195](ID$)[179][177]2[167]169
171 [141]81:[153]"CONT OKAY - FORMATTING TAKES 90 SECONDS"
172 [152]15,"N:ULTRA SEQ-FILES,"ID$
173 [141]150:[139]ER[179][177]0[167][141]120
174 [137]29
175 [160]4:[159]4,4,7:[141]114:[139]QQ[167]26
176 L[178]0:[153]"LOADPOKE":[151]53280,11:[151]53281,11:[151]53272,23
177 [153]""[163]3)" "
178 [153][163]3)" << (null)EADING ASCILE RIGHT$NTO AN ATNRRAY >> "
179 [153][163]3)" ":[151]787,25:[151]2,15:[158]OC
180 [139]L[167][153]""[163]43)"LIST << (null)EADING ASCILE RIGHT$NTO AN ATNRRAY >> "
181 [151]214,23:[153]:[153]" DEFLEFT$(null)(null)STR$ (null)LEFT$RIGHT$ASC(null)PRINT TO (null)AUSE ---- SYSASC6PRINT TO ATNBORTONONONOPEN"
182 [139]L[167]L[178]0:[137]185
183 [159]2,DN,2,FF$:[141]119:[139]E[167]25
184 YY[178]1:[151]CR[171]2,0:[158]CR
185 [129]K[178]1[164]112:A$(K)[178]"":[130]:U[178]0
186 [145][171]([194](CR[171]3)[179][177]0)[137]193:[139][194](CR[171]2)[177]80[167][151](CR[171]2),0:[141]135
187 [129]X[178]0[164][194](CR[171]2):AA$[178][199]([194](512[170]X)):A$(YY)[178]A$(YY)[170]AA$:[139][195](A$(YY))[177]40[167]YY[178]YY[170]1
188 [130]:[158]SO:[151]214,19:[153]:[153]A$(YY):YY[178]YY[170]1:[145][171]([194](600)[178]0)[141]135:[158]WW
189 [139][194](653)[178]1[167][151]214,23:[153]:[153]" DEF(null)VAL(null)VALATN(null)VALPRINT TO LENONTINUE ON":U[178]1
190 [139][194](653)[178]1[167][145][171]([194](197)[178]6)[137]202:[137]189
191 [139]U[167][153]" DEFLEFT$(null)(null)STR$ (null)LEFT$RIGHT$ASC(null)PRINT TO (null)AUSE ---- SYSASC6PRINT TO ATNBORTONONONOPEN":U[178]0
192 [145][171](YY[178]112)[137]195:[153]:[137]186
193 [129]X[178]0[164][194](CR[171]2)[171]1:AA$[178][199]([194](512[170]X)):A$(YY)[178]A$(YY)[170]AA$:[130]:[158]SO:[151]214,19:[153]
194 [153]A$(YY):[160]2:[158]65511:[159]4,4,7
195 [153]""[163]44)"LIST << STR$ATA TO (null)RINTER >> ":[129]I[178]1[164]5:[152]4:[130]
196 [139]YY[173]2[179][177][181](YY[173]2)[167]YY[178]YY[170]1
197 I1[178]YY[173]2:[129]II[178]1[164]I1:[152]4,A$(II);[163]41[171][195](A$(II)));A$(II[170]I1)
198 [139][194](653)[178]1[167][151]214,23:[153]:[153]" DEF(null)VAL(null)VALATN(null)VALPRINT TO LENONTINUE ON":U[178]1
199 [139][194](653)[178]1[167][145][171]([194](197)[178]6)[137]202:[137]198
200 [139]U[167][153]" DEFLEFT$(null)(null)STR$ (null)LEFT$RIGHT$ASC(null)PRINT TO (null)AUSE ---- SYSASC6PRINT TO ATNBORTONONONOPEN":U[178]0
201 [130]:[129]I[178]1[164]5:[152]4:[130]:[139]YY[177]111[167]YY[178]1::L[178]1:[137]180
202 T[178]1:[141]106:[160]2:[158]CC:[153]"LOAD":[151]53280,.:[151]53281,.:[158]65511:[159]15,DN,15:BOB[178]0:[137]26
203 [151]2025,7:[138]
204 [129]D[178]1[164]1200:[130]:[142]
205 S[178]1[171]S:[141]211
206 [153]"SYS SOUND":[139]S[167][153]" ON "
207 [139]S[178]0[167][153]" OFF"
208 [153]""[163]33)"ONONASCII":[139]A[167][153]""[163]34)"ONON "
209 [145][171](A[178]1)[137]50:[153]""[163]34)"ONOFF":[137]50
210 [142]
211 [145][171](NS[178]1)[137]210:[129]I[178]54272[164]I[170]23:[151]I,.:[130]:SI[178]54272:[151]SI[170]1,106:[151]SI[170]5,12
212 [151]SI[170]6,15:[151]SI[170]24,15:[151]SI[170]15,30:[151]SI[170]4,21:[142]
213 [160]15:[159]15,DN,15,"I":[139]ST[178][171]128[167]E$[178]"DEVICE NOT PRESENT":[141]120:[137]25
214 [158]EZ:[139]ST[179][177]64[167]E$[178]"MISSING OR UNFORMATTED DISK":[141]120:[137]25
215 [151]214,23:[153]:[153][163]10)"SYS ANY KEY TO CONTINUE ";:[146]198,1:[151]198,.:[137]25
216 [129]K[178]16[164]18:[151]781,K:[158]59903:[130]:[151]214,16:[153]:[151]19,32
217 [133]" LEFT MARGIN:FOR 0 CMDCMDCMDCMD";M$
218 M[178][197](M$):[139]M[177]40[167]216
219 [151]214,17:[153]:[133]" RIGHT MARGIN:FOR 0 CMDCMDCMDCMD";R$
220 R[178][197](R$):[139]R[177]40[167]219
221 [139]F$[178]"6"[167][142]
222 [141]80:[151]214,16:[153]:[133]"OPEN PREFORMATTED TEXT?SYS N CMDCMD";X$
223 [139]X$[179][177]"Y"[175]X$[179][177]"N"[167]222
224 [141]80:F[178][171](X$[178]"Y"):[142]
225 DN[178]DN[170]1[170]4[172](DN[178]11):[151]253,DN:[153]"":[151]214,21:[153]
226 [153][163]8)"SYS DEVICE NO.= CMDCMDCMDCMDCMDCMDCMDCMD"DN:TM[178]0
227 [161]A$:TM[178]TM[170]1:[145][171](TM[177]50)[137]29
228 [145][171](A$[178]"D")[137]225:[145][171](A$[178]"")[137]227:[137]29